;:open1,8,15,"s:start & ende 500":close1
;:open2,8,2,"start & ende 500,p,w
;:sys36864
	;.opt o2
	*= $400
sektor	=$306
track	=sektor-1
anz	=$304
null	=$c1c9
end	=$302
ledan	=$c118
	jmp begin
read	lda track
	sta 10
	lda sektor
	sta 11
	lda #$80
	sta 2
wait	lda 2
	bmi wait
	cmp #1
	beq gut
	lda #-1
	sta anz
	sec
	rts
gut	inc anz
	clc
	rts
begin	jsr ledan
	ldy #1
	dey
	sty anz
	sty ok+1
	sty okab+1
	jsr read
	bcc oka
	rts
oka	lda $502
	sta end
okab	sta $301
	lda $503
	sta $301
	sta end+1
	jmp ok
loop1	jsr read
	bcc ok
	rts
ok	lda $501
	beq ende
	sta track
	lda end
	clc
	adc #254
	sta end
	lda end+1
	adc null
	sta end+1
	lda $501
	sta sektor
	jmp loop1
ende	lda end
	clc
	adc $501
	sta end
	lda end+1
	adc null
	sta end+1
	lda end
	sec
	sbc #4
	sta end
	lda end+1
	sbc null
	sta end+1
	rts